home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / rlib.zip / RL_DECRY.PRG < prev    next >
Text File  |  1993-01-04  |  387b  |  19 lines
  1. * Function: DECRYPTED
  2. * Author..: Richard Low
  3. * Syntax..: DECRYPTED()
  4. * Returns.: Un-encrypted character string encrypted with ENCRYPTED(exp<C>)
  5. *
  6.  
  7. FUNCTION DECRYPTED
  8. PARAMETER p_string
  9. PRIVATE f_temp, f_length, f_x
  10.  
  11. f_temp = ''
  12. f_length  = LEN(p_string)
  13.  
  14. FOR f_x = 1 TO f_length
  15.    f_temp = f_temp + CHR(ASC(SUBSTR(p_string,f_x,1))-101-f_x)
  16. NEXT f_x
  17.  
  18. RETURN (f_temp)
  19.